home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / t3_1 / risc_src.lha / risc_sources / xlib / test.t < prev    next >
Text File  |  1990-06-07  |  522b  |  14 lines
  1. (herald test)
  2.  
  3. (DEFINE-FOREIGN XLOADQUERYFONT*
  4.                 ("XLoadQueryFont" (IN REP/C-POINTER) (IN REP/STRING))
  5.                 REP/extend)
  6. (DEFINE (XLOADQUERYFONT DPY NAME)
  7.         (LET* ((DPY (CHK-DISPLAYP DPY))
  8.                (NAME (IF (STRING? NAME)
  9.                          (STRING->ASCIZ! NAME)
  10.                          (ERROR "Argument is incorrect type: ~s" NAME)))
  11.                (RETURN-VALUE (CONS 'XFONTSTRUCTP
  12.                                    (XLOADQUERYFONT* DPY NAME))))
  13.               RETURN-VALUE))
  14.